home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tiger Disk 8
/
Tiger_Disk_008_19xx_Tiger-Crew-Disk_de_Side_B.d64
/
+++ schluss +++
(
.txt
)
next >
Wrap
Commodore BASIC
|
2023-02-26
|
2KB
|
58 lines
10 poke53280,0:poke53281,0:print"[147]"
20 print"[152] [213][195][195][195][195][195][195][195][195][195][195][201]
30 [153]" peekdeftoandposnewor^newposandtoprint#peek
40 print" [194]* lukian *[146][152][194]
50 [153]" peektab(tab(tab(tab(tab(tab(tab(tab(tab(tab(peek
60 print" [194][151] [223][169][223]..[169][223][169] [152][194]
70 [153]" peekpoke (NULL)(NULL)(NULL)(NULL)(NULL)step print#peek
80 print" [194][151] )( [152][194]
90 [153]" peekpoke print#peek
95 print" [202][195][184][184][184][184][184][184][184][184][146][195][203]
97 [153]"print# (NULL)(NULL)(NULL).logcos:(NULL) wait"
100 [153]"print# pospoke*************rndprint#pos
110 print"[152] [207] [151][162][162][162][162][162][162][162][162] [152][208]
120 [153]"print# usrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusr
122 print" [170][180]"
125 print" [223][169]"
130 print" [151] [162][162][162][162] "
131 print" [173][183][183][183][183][189]"
140 poke198,1:wait198,2:geta$
145 if a$=chr$(160)then150
150 poke53280,14:poke53281,0:
160 s=54272:pokes+24,15:pokes,215:pokes+1,50:pokes+5,15:pokes+6,22
165 pokes+7,124:pokes+8,110:pokes+12,33:poke13,220
170 print"[147]":v=53248:pokev+21,29
175 fors1=12288to12350:readq1:pokes1,q1:next
180 fors2=12416to12478:readq2:pokes2,q2:next
190 pokev+39,3:pokev+1,129:
192 fora=1to15:printchr$(147):
194 printtab(120)"[156] "
195 print" [156] [146] ** macht's gut, freunde!! **[156] "
196 print" [156] "
197 for b=0to20step-21:printchr$(147):poke191,1:print" "
199 nextb, a:gosub 200
200 p=191:
205 forx=1to421step15:
215 rx=int(x/256):lx=x-rx*256
220 pokev,lx:pokev+16,rx
225 ifp=191then gosub330
230 ifp=192then gosub350
232 ifp=193 then gosub355:
235 poke2040,p:fort =0to1 :next:ift >1 thenprintchr$(144):
240 p=p+1:ifp>193thenp=191
242 for y=0to250step-5:pokev+23,29:pokev+29,29:pokev+8,y:pokev+4,y:poke53281,0
243 pokev+2,y:pokev+16,y:pokev+33,y: nexty
245 next
250 print"":goto400
255 data244,88,240,134,84,128,197,82,192,132,212,128,244,88,240,0,0,0
260 data0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
265 data0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
270 data0,0,0,0,0,0,0,0,0
305 data244,88,240,134,84,128,197,82,192,132,212,128,244,88,240
310 data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
315 data0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
330 pokes+4,129:pokes+4,128:return:
350 pokes+11,129:pokes+11,128:return
355 pokes+14,129:pokes+14,128:return
400 sys58592:poke768,143:new